Найти выручку за каждый день и в какой день она максимальна -Basic(Бейсик)

disel

представлена выручка магазина за неделю по 5 товарам.
1 найти выручку за каждый день и в какой день она максимальна
2 какой из товаров продается лучше всего
3 общая выручка за неделю

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
CLS
DIM a(5, 7)
FOR i = 1 TO 5
FOR j = 1 TO 7
PRINT i; "товар"; j; "день"
INPUT a(i, j)
CLS
NEXT j
NEXT i
  
  
'Находим выручки для каждого дня
DIM vir(7)
FOR j = 1 TO 7
vir(j) = 0
FOR i = 1 TO 5
vir(j) = vir(j) + a(i, j)
NEXT i
NEXT j
  
'печатаем выручки, находим и печатаем максимальную
max = vir(1)
nmax = 1
FOR j = 1 TO 7
PRINT "выручка"; j; "дня = "; vir(j)
IF vir(j) > max THEN
max = vir(j)
nmax = j
END IF
NEXT j
PRINT "максимальная выручка ="; max; "была"; nmax; "дня"
PRINT
  
  
'находим товар с самой большой выручкой за все дни (я понимаю такой товар продается лучше всего или я не прав?), и паралельно складываем все элементы массива в ячейку sum
DIM tov(5)
sum = 0
FOR i = 1 TO 5
tov(i) = 0
FOR j = 1 TO 7
tov(i) = tov(i) + a(i, j)
sum = sum + a(i, j)
NEXT j
NEXT i
maxt = tov(1)
nmaxt = 1
FOR i = 1 TO 5
IF tov(i) > maxt THEN
maxt = tov(i)
nmaxt = i
END IF
NEXT i
PRINT "Самый продаваемый товар - ";nmaxt
PRINT
PRINT "Общая выручка = "; sum

Похожие записи/страницы:

Leave a Comment